home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 002a / corewar.zip / GUNDROP.PRG < prev    next >
Text File  |  1991-04-23  |  381b  |  22 lines
  1. BGN Gun_Dropper
  2. E       ADD #Grid_Size A
  3.         MOV B @A
  4.         ADD #1 A
  5.         MOV C @A
  6.         ADD #1 A
  7.         MOV D @A
  8.         ADD #1 A
  9.         MOV F @A
  10.         ADD #1 A
  11.         MOV G @A
  12.         SUB #4 A
  13.         SPL @A
  14.         JMP E
  15. A       DAT 10
  16. B       RND 4 #Grid_Size*Grid_Size
  17. C       JWN -1 @3
  18. D       MOV #0 @2
  19. F       JMP -3
  20. G       DAT 0
  21. END
  22.